#!/usr/bin/perl

my (@trytime, $time);
if (-e "/sysvol/etc/trytime") {
        open(TL, "/sysvol/etc/trytime");
        @trytime=<TL>;
        close(TL);
        $time = $trytime[0];
        $time =~ s/\s|\r|\n//g;
        #print $time;
        if($time eq "F"){
                #print "free\n";
                exit;
        }
        if($time > 0){
                $time = $time - 1;
                open(TL, ">/sysvol/etc/trytime");
                print TL $time;
                close(TL);
        }
	elsif($time eq 0){
		'/sbin/webmin/register/freeze.pl';		
	}
}
#print "aaa";
